home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / SYS / s / testrexx.rexx < prev    next >
OS/2 REXX Batch file  |  1996-09-26  |  635b  |  36 lines
  1. /* TestRexx.rexx */
  2. /*
  3.        This shows simple calls to SkoEd
  4.  
  5.        with SkoEd running,  RX TestRexx.rexx
  6.  
  7. */
  8.  
  9. Options FailAt 10
  10. Options results
  11.  
  12. say 'About to Start'
  13. Address COMMAND 'wait' sec 1
  14. Address SKOED1 "Set_Var(LINK Hello)"
  15. if rc > 0 then
  16.    say 'Error' rc
  17. else
  18.    say 'No Error'
  19. Address SKOED1 "Set_Var(AUTOTIME 5)"
  20. if rc > 0 then
  21.    say 'Error' rc
  22. else
  23.    say 'No Error'
  24. Address SKOED1 "Set_Var(INDENT FALSE)"
  25. if rc > 0 then
  26.    say 'Error'
  27. else
  28.    say 'No Error'
  29. say 'About to Get_File ...'
  30. Address SkoEd1 "Get_File(Misc.def) Goto_Line(10) Msg(Error - Hello)"
  31. if rc > 0 then
  32.    say 'Error'
  33. else
  34.    say 'Get Done' RESULT
  35.  
  36.